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DEC EDUCATIONAL PUBLICATIONS 


Other publications in the continuing series of curriculum material 
published by DEC for use with EduSystems 10 through 80 are listed 
below. Please inquire directly for prices on classroom quantities. 


Additional publications may be obtained from: 
Program Library 


Digital Equipment Corporation 
Maynard, Massachusetts 01754 


Populution: Self-—teaching BASIC Workbook , $2.00 
BASIC Application Programs 
Mathematics I 1.00 
Mathematics II ‘1.00 
Science 1.00 
Business/Social Studies 1.00 
Plotting 1.00 
BASIC Matrix Operations 1.00 


Huntington I Application Programs 
MATHEMATICS 2.00 
TEACHER ASSISTANCE ; 1.00 


Huntington I Simulation Programs 


BIOLOGY 1.00 
CHEMISTRY 2.00 
EARTH SCIENCE 1.00 
PHYSICS 2.00 
SOCIAL STUDIES 1.00 
Problems for Computer Mathematics 1.25 


BASIC APPLICATION PROGRAMS 


The programs contained in this series are designed to demonstrate 
how the computer can be applied in a meaningful way to problems 

of many disciplines. The problems and the corresponding programs 
are, for the most part, quite simple and are designed to be 
"jumping off points" for students from the high school level on up. 


All of the programs, with very few exceptions, may be run on 
EduSystems 10 through 80, PDP-8 Family and PDP-11 Family computers. 
Exceptions are noted in the program descriptions. 


DEC welcomes contributions of programs and write-ups for use in 
this series. Contributors will be credited as program "Source". 
Please send programs and descriptions to Educational Marketing (5-2). 


Mathematics 


Geometry 


Statistics 


Graphing 


BOOKS 


DISTANCE 


EXPON 


GOLDBACH 


GROUP 


PASCAL 


PROGRS 


QUADRT 


TUTOR-1 


CRSCNT 


FLIP-1 


SINEX 


3DPLOT 


TABLE OF CONTENTS 


MATHEMATICS If 


Demonstrates method of improving upon brute 
force to solve simultaneous equations. 


Calculates distance between points in three- 
dimensional space. 


Solves for the exponent in general exponential 
equations. 


Tests Goldbach's conjecture up to 50. 


Demonstrates brute force vs. substitutional 
solution of simple equations. 


Method of generating Pascal's triangle using 
random numbers. 


Solves a number progression problem. 
Solves for the roots of a quadratic equation. 


Drill and practice with time-speed-distance 
problems. 


Solves for the area of a crescent (not 
generalized). 


Flips a coin. 
Plots a sine wave. 


Plots any three-dimension functions. 


AREA: Mathematics NUMBER: 8-3 NAME: BOOKS 

SOURCE: Digital Equipment Corporation LANGUAGE: BASIC 
DESCRIPTION: This program illustrates the solution to a fairly simple 
word problem involving two simultaneous equations. Then, by combining 
the equations and trying fewer combinations, the speed of obtaining the 
solution can be improved 100 fold. The problem is: 


Brown has 48 books; some are worth $3 each, some $5 and others $8. The 
total value of the books is $175. How many of each kind are there if 


there are an even number of $5 books? 


USAGE: The equations for solution are (letting T = number of three 
dollar books; F = five dollar books and E = eight dollar books) : 


T+F +E = 48 
T*3+F*5 +E * 8 = 175 


If we then try all possible combinations of T, F, and E from 1 to 48 for 
each variable, our program would be as follows: 


5 PRINT "ALL POSSIBLE SOLUTIONS FOR BOOKS PROBLEM" 
6 PRINT 
a PRINT wages ently epee 

8 PRINT 


19 FOR T=1 TO 48 

20 FOR F=1 TO 48 

30 FOR E=1 TO 48 

40 IF (T+F+E)<>48 THEN 70 

5A IF (T*3+F*5+E*8)<>175 THEN 70 
60 PRINT TsFsE 

76 NEXT E 

80 NEXT F 

90 NEXT T 

99 END 


RUN 


BOOKS 21:03 22-JAN-71 


ALL POSSISLE SOLUTIONS FOR BOOKS PROBLEM 


T F E 
34 13 1 
37 8 3 
4A 3 5 


TIMEs 7631 SECS- 


However, 7.31 seconds is a long time for the computer to work. Let's 
solve for T in both equations by hand and solve the resulting equation 
by brute force on the computer: 


F*2+E* 5 = 31 


In this equation, we can also reduce our limits since we recognize that 
F cannot be greater than 31/2 = 15.5 and E cannot be greater than 
31/5 = 6.2. Making the appropriate program modifications leads to: 


20 FOR F=1 TO 15 
30 FOR E=1 TO 6 
40 IF (F*2+E*5)<>31 THEN 70 


58 

55 LET T=48-F-E 

90 

RUN 

BOOKS 21:06 22-JAN-71 


ALL POSSIBLE SOLUTIONS FOR BOOKS PROBLEM 


T F E 
40 3 5 
37 8 3 
34 13 1 
ee 


TIME: @-16 SECS. 


READY 


Our final refinement is to step F in increments of 2 since we know it 
must be even. 


5 PRINT "SOLUTIONS FOR BOOKS PROBLEM WITH F = EVEN NUMBER” 
20 FOR F=2 TO 14 STEP 2 


RUN 


BOOKS 21310 22-JAN-71 


SOLUTIONS FOR BOOKS PROBLEM WITH F = EVEN NUMBER 
T F E 


37 8 3 


TIME: @+-836 SECS. 


2 


EDUCATIONAL BENEFIT: Notice the enormous improvement in computing time 
required for a solution 7-31 seconds to .06 seconds. Brute force 
certainly is inefficient: Perhaps it's worthwhile to think through 
most problems, particularly big ones. The computer may be fast, but 
we just improved its performance by 100 times using a little common 
sense: 


AREA: Mathematics NUMBER: NAME: DISTANCE 
SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 


DESCRIPTION: This program solves for the distance between two points in 
3-dimensional space defined by their x, y, z coordinates. 


APPROACH: The distance between two points in 3-dimensional space may be 
found by the formula: 


d= (x-x4)* + (yy-y,)2 + (zQ-21)? 


Program distance solves the equation for three sets of points with the 
following coordinates: 


P (0,0,0) and Q (3, 4, 5) 
A (3.5, -4.7, 6.2) and B (0.9, 3.0, 4.4) 
X (67, 36, 82 and Y (54, 25, 90) 


Notice how we have used a DATA statement to define the points. Is this 
a good "general" approach? Modify the program to accept any two sets 
of x, y, Z coordinates at the time the program is run and output the 
distance. 


This calculation is used extensively in aerospace navigation. A good 
exercise for advanced students is determining the angle or "compass 
heading” of the resulting path. Better start first with just two 
dimensions} 


1A 
15 
on 
320 
rai tl 
AS 
5A 
AA 
99 


RUN 


FOR N=1 TO 3 

PRINT 

RFAD AsBsCsDs FoF 

LET D1=SARCCA-D)194+(B-E) t+ CC-F) 12) 

PRINT “THE DISTANCE BETVEEN C™A™Z TBS 'C™) AND CUD'S"EM, RF) 
PRINT “TS"D1 

NEXT N 

DATA Asse 80ls53 205 9-he 76029-09332 No bs b7 236982 25M P52 OA 
END 


THE DISTANCE BETWEEN € A » @» @ ) AND € 3 5 4 » 5 ) 
TS 7eAT1AEGR 


THE DISTANCE BETWEEN € 3¢5 s74e7 » 602 ) AND €-0¢9 » 3 » 4ed ) 
IS 92-ALD3BAD 


THE DISTANCE BETWEEN € 67 » 36 » 82 ) AND € 54 » 25 5» 9A ) 
TS 18e814R9 


READY 


AREA: Mathematics NUMBER: NAME: EXPON 
SOURCE: NREL/SDC LANGUAGE: BASIC 


DESCRIPTION: Program EXPON solves for x in any exponential equation of 


the form: ee 
A = B 


given the values of A, B, m, and n. 


The program solves the following problems: 


i. 5S = S09 
2. 5°Xtl = 7.6 
3, 17? = e243 


4. 11172% = 247 


APPROACH: If you were to solve an exponential equation by hand, you 
would probably go through the following steps: 


s*. = 40 
log 5* = log 40 
x log 5 = log 40 
log 40 
x = 
log 5 
1.6021 
x = "6990 > 2.292 


However, in the generalized form, the solution for x is: 


log B 


- log A 
* = M- (N/M) 


A DATA statement was used to contain the data to solve problems 1-4 
above. Modify the program to accept data using an INPUT statement to 
solve any exponential equation. 


1A RFAD AsBsMsN 

PA LET X¥=CLOGCRI/LOGCA))/M-CN/M) 

34 PRINT xX 

4A GOTO 1a 

5A DATA 5540315059597 06339191798 0128919735115 247 9-25] 
99 FND 


PUN 


GS 


2.29203 < 
29867198 
367392A7 
-+6487967 


OUT OF DATA IN LINE 14 


READY 


AREA: Mathematics NUMBER: NAME: GOLDBACH 
SOURCE: CAMP First Course, Scott, Foresman and Co. LANGUAGE: BASIC 


DESCRIPTION: This is the description of the program exercise as it 
appears in the CAMP text (page 200). 


"Goldbach's Conjecture is one of the famous unproved theories in mathe- 
matics. Many people have searched for a counter-example to prove that 

the following claim is false: Every even number E greater than four is 

the sum of two odd prime numbers. Study the program "Goldbach" which 

will print out each even number E, where E<6<50, and two odd prime 

numbers whose sum is E. Examine the output from the computer. Does ) 
this program "prove" the conjecture. — 


The teacher's guide is quick to point out that it proves the conjecture 
for E<50, but that's all. 


USAGE: Load Goldbach and type RUN. No input is required. This program 
has nested loops which take time. Running time is in minutes. 


EDUCATIONAL BENEFITS: The student has whole new ways to approach theorem 
proving when the computer is available to try lots of cases. 


5 PRINT **GOLDBACH" 
1A FOR F=x6@ TO SA STEP 2 
15 FOR P=3 TO E-3 
20 FOR F=2 TO P-1 
25 IF P/FsINTCP/F) THEN 65 
30 NEXT F 
35 FOR Na3 TO E-3 
40 FOR D=2 TO N-1 
45 IF N/D=INTCN/D) THEN 60 
5@ NEXT D 
55 IF P+N=E THEN 8A 
6A NEXT N 
65 NEXT P 
7A PRINT “CONJECTURE FALSE FORE 
75 GO T9 99 
8A PRINT E'="ptt+en 


R5 NEXT E 
99 END 

READY 

RUN 

GOLDRACH 
6 = 3 + 3 
R=3 + 5 
iA =3+ 7 
12 = 5 + 7 
1423 + 11 
16 = 3 + 13 
18 = 5 + 13 
PA = 3 + 17 
e2 = 3 + 19 
24 = 5 + 19 
26 = 3 + 23 
eB = 5 + 23 
30 = 7 + 23 
32 = 3 + 29 
34 = 3 + 31 
36 = 5 + 31 
38 = 7 + 3! 
4A = 3 + 37 
42 = 5 + 37 
44 = 3 + 4) 
46 = 3 + 43 
4R = § + 43 
5A = 3 + 47 

READY 


AREA: Mathematics NUMBER: 8-6 NAME: GROUP 

SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 
DESCRIPTION: This program illustrates a method of solving a mathematical 
word problem by trial and error using the computer. The problem is: 


When 15 girls leave a group of boys and girls, there are 2 boys for each 
girl. After that, 45 boys leave. Then there are 5 girls for each boy. 
How many girls were in the group before anyone left? 

USAGE: One must recognize that this problem requires the solution of 
two simultaneous equations. Letting G = the original number of girls 
and B = the original number of boys, the equations are: 


(G - 15) x 2=B 


(B - 45) x 5 


(G - 15) 


It is, of course, possible to substitute the value of B from Equation 1 
into Equation 2 and solve for G. However, the computer permits us to 
get the solution by trial and error, obviously not a very sensible way 
to do the problem by hand. 


The program below has been written to try all possible values of B and 
G between 1 and 100 until a solution is found or until the program runs 
out of combinations. 


READY 


5 PRINT “PROGRAM GROUP" 

6 PRINT 

1A FOR G=1 TO 106 

2a FOR B=1 TO 100 

25 LEFT I=!+1 

30 IF 2*(G-15)<>B THEN 5A 

40 IF 5*(B-45)<>(G-15) THEN 50 
45 PRINT G3"GIRLS"sB3 "BOYS" 

48 GO TO 96 

50 NEXT B 

60 NEXT G 

70 PRINT "NO SOLUTION" 

90 PRINT Is"COMBINATIONS TRIED" 
99 END 


RUN 

PROGRAM GPOUP 

4@ GIRLS 5a BOYS 
395a COMBINATIONS TRIED 


READY 


EDUCATIONAL BENEFITS: The student can see that the computer can be 
employed to find a solution to a problem by trial and error, but that it 
must try 3950 possible solutions before the correct one is reached. 
Hence, if a problem can be easily solved by hand, the computer may not 
always be a significant advantage. 


RUN 


PROGRAM PASCAL 


HOW 
HOW 


1 
2 


MANY 
MANY 


MANY 
MANY 


MANY 
MANY 


MANY 
MANY 


MANY 
MANY 


MANY 
MANY 


BALLS? 10800 
LEVELS? 1 


506 
494 


BALLS? 1800 
LEVELS? 2 


252 
581 
247 


BALLS? 1000 
LEVELS? 3 


117 
393 
376 
114 


BALLS? 10800 
LEVELS? 4 


56 
254 
366 
254 
74 


BALLS? 1008 
LEVELS? 5 


30 
135 
321 
317 
164 
37 


BALLS? 1000 
LEVELS? 6 


HOW MANY BALLS? 


*C 


READY 


AREA: Mathematics NUMBER : NAME: PASCAL 
SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 


DESCRIPTION: This program simulates the dropping of N balls through the 
following array of K levels. It is assumed that each ball is equally 
likely to fall to the left or right at each point in the array. After 
each group of balls has been dropped, the number of balls in each 
basket (from left to right) is typed out. 


The number of balls landing in the various "baskets" at each level, when 
reduced to the lowest common denominator, should approximate the numbers 
in Pascal's Triangle. Do they? Write a program to determine how close 
you come. You should be able to observe many interesting things about 
Pascal's Triangle. What are the sums of the numbers in each row? What 
is the progression of numbers in each diagonal? 


5 PRINT “PROGRAM PASCAL" : 

6 PRINT ra 
14 DIM BC10) if 
15 PRINT “HOW MANY BALLS"S 


17 PRINT "HOW MANY LEVELS": 
18 INPUT K 


30 FOR N=1 TO M ea aa a 
35 LET T=@ {| | [| [| [| [| 


4% FOR L=1 TO K 

50 IF RND(C1)>-5 THEN 100 

90 LET T=T+#1 

100 NEXT L 

110 LET BCT+1)=BCT+1)+41 { 

12@ NEXT N ; i 

130 FOR L=1 TO (K+1) 

140 PRINT LsBCL) | 2 1 
145 LET BCL)=6 

150 NEXT L I 3 3 | 
16% GOTO 6 \ 4 6 4 \ 
999 END 


16 INPUT M Pd ¥F?™ 
7 


READY 
Pascal's Triangle 


AREA: Mathematics NUMBER: 8-8 NAME: PROGRS 
SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 


DESCRIPTION: Sometimes the computer is used to do a problem in an en- 
tirely different way than we humans might approach the 
same problem. For example, given the following tables 
of values: 


Xx 1 2 3 4 etc. 
Y 10 17 26 37 


What is the value of X when Y is 2602? 


APPROACH: We noticed that the difference between successive values 
of Y increases by 2 each step; i.e., 7, 9, 11, etc. 
Therefore, if we stepped from Y = 10 to 2602 in steps 
of Z, the step itself would have to be incremented by 
2 for each new step. If we write a program to do this 
as well as count the number of steps, X, we should be 
able to solve the problem. 


5 PRINT "PROGRAM PROGRS" 
6 PRINT 

10 LET x=1 

20 LET 7=7 

25 LET Y=1a 

3A LET Y=Y+Z 

40 LET Z=Z7+0 

5A LET x=X+1 

68 IF Y<26A2 THEN 30 

8A PRINT "XK ="3sx5"y ="3¥ 

99 END 


x = 49 Y = 26062 


READY 


EDUCATIONAL BENEFIT: It‘s often possible to solve a problem using 
the computer in a manner quite differently 


than one would use by hand. How would you 
have solved this problem not using the com- 
puter? 


AREA: Mathematics NUMBER: NAME: QUADRT 

SOURCE: Digital Equipment Corporation LANGUAGE: BASIC 

DESCRIPTION: For any input values a, b. and c of a first degree quadratic 
equation (ax? + bx +c = 0), this program computes the roots 
of the equation. 


APPROACH: Based on the quadratic theorem, given ax2 + bx +c = 0, then 


7 -b + b2 - 4ac 
a 2a 


Assuming a, b, and c are real numbers, the following principles are 
applied: 


l. If b* - 4ac is positive, then the roots are real and unequal. 

2. If b2 - 4ac equals 0, then the roots are real and equal. 

3. If b? - 4ac is negative, then the roots are imaginary and 
unequal. 


The program and several sample runs are on the reverse. 


RUN 


THIS PROGRAM SOLVES FOR THF ROOTS OF A 

QUADRATIC FQUATIONe PLEASE INPUT THE FOLLOWING: 
VALUE OF A? 1 

VALUE OF B? 2 

VALUF OF C? 1 


THE ROOTS ARE 
= 


THIS PROGRAM SOLVFS FOR THE ROOTS OF A 

QUADRATIC EQUATION. PLEASE INPUT THE FOLLOWING: 
VALUE OF A? @ 

VALUE OF B? 2 

VALUE OF C? 4 


THIS IS A FIRST DEGREE EQUATION. 


14 PRINT “THIS PROGRAM SOLVES FOR THE ROOTS OF A" 
PA PRINT "QUADRATIC FQOUATION.e. PLEASE INPUT THE FOLLOWING: 
PP PRINT "VALUF OF A‘S 

P4 INPUT A 

P6 PRINT “VALUE OF RB'$ 

PX INPUT RB 

2M PRINT “VALUE OF C's 

22 INPUT C 

24 PRINT 

35 LET ReBre-4*A*C 

AA TF A<>A THEN Sa 

45 PPINT “THIS IS A FIRST DFGRFEF EONATION." 
47 GOTO 9a 

5A PRINT “THE POOTS ARE "3 

55 IF R<@ THFN Ra 

56 PRINT 

52 IF R= THEN 70 

6A PRINT (C-R+SQ@RCR))/P#A 

A&P PPINT (€-B-S@RC(R))/2*A 

65 GOTO 9a 

7A PRINT -B/O*A 

75 GOTO 9a 

2A PRINT "IMAGINARY" 

ROP PRINT C-B/P*A)$" + "“SSARC-R)SO#AS" *I" 
B4 PRINT (-B/P#*Ad3S" = “SSAORCHRISO*"AS™ *I" 
QA END 


PUN 


THIS PROGRAM SOLVES FOF THF ROOTS OF A 

MOUADRATIC FAUATTONe PLEASE INPUT THE FOLLOWING: 
VALUF OF A? ?® 

VALUF OF R? § 

VALUF OF C? 2 


THF ROOTS ARF 
-2 
= 


PFADY 


RUN 


THIS PROGRAM SOLVES FOR THE ROOTS OF A 

QUADRATIC FQUATION. PLEASF INPUT THE FOLLOWING: 
VALUE OF A? 4 

VALUF OF B? ? 

VALUF OF C? 4 


THF ROOTS ARF IMAGINARY 


-4 + 15-49193 *I 
-4 + 1868-49193. *I 


RFADY 


AREA: Mathematics NUMBER s NAME: TUTOR-1 
SOURCE: Walter Koetke, Lexington High School LANGUAGE: BASIC 


DESCRIPTION: An effective technique for stimulating interest as well as 
for teaching methods of solving word problems is to have students write 

a program which will create and present a problem, ask the user to solve 
the problem, and then verify the user's response. For example, consider 
the problem: 


A car traveling C (have computer generate an integer 40 through 65) miles 
per hour can make a certain trip in D (have computer generate an integer 
5 through 20) hours less than a train traveling at T (have computer 
generate an integer 20 through 39) miles per hour. How long does the 
trip take by car? 


The student's program should type out this problem with numbers generated 
by the random function appropriately substituted, then ask for the user's 
solution, the student's program must also correctly solve the problem. A 
program which does all of this is: 


5 RANDOMIZE 

10 LET C=INTCRNDCA) *25)+44 

15 LET D=INTCRND(Q@)*15)+5 

20 LET T=INTCRND(Q)*19)+20 

25 PRINT "A CAR TRAVELING"C"MPH CAN MAKE A CERTAIN TRIP IN" 
30 PRINT D**HOURS LESS THAN A TRAIN TRAVELING AT’T'MPH." 
35 PRINT “HOW LONG DOES THE TRIP TAKE BY CAR"; 

40 INPUT A 

45 LET V=D*T/(C-T) 

50 LET E=INTCABS(C CV-A)*10A/A) +65) 

55 IF E>S THEN 7A 

6A PRINT “GOOD! ANSWER WITHIN''E’PERCENT.” 

65 GO TO 8A 

7A PRINT “SORRY- YOU WERE OFF BY"E'PERCENT." 

RA PRINT "CORRECT ANSWER IS"'v""HOURS-" 

99 END 


READY 


RUN 


A CAR TRAVELING 64 MPH CAN MAKE A CERTAIN TRIP IN 
12 HOURS LESS THAN A TRAIN TRAVELING AT 21 MPH. 

HOW LONG DOFS THE TRIP TAKE BY CAR? 6 

GOOD! ANSWER WITHIN 2 PERCENT. 

CORRECT ANSWER IS 5+860@465 HOURS- 


READY 
RUN 


& CAR TRAVELING 53 MPH CAN MAKE A CERTAIN TRIP IN 
7 HOURS LESS THAN A TRAIN TRAVELING AT 23 MPHe 

HOW LONG DOES THE TRIP TAKE BY CAR? 5 

SORRY+ YOU WERE OFF BY 7 PERCENT. 

CORRECT ANSWER IS 5+366667 HOURS- 


READY 
RUN 


& CAR TRAVELING 43 MPH CAN MAKE A CERTAIN TRIP IN 
19 HOURS LFSS THAN A TRAIN TRAVELING AT 27 MPH. 

HOW LONG DOES THE TRIP TAKE By CAR? 32 

GOOD! ANSWER WITHIN @ PERCENT. 

CORRECT ANSWER IS 328625 HOURS. 


READY 
RUN 


A CAR TRAVELING 45 MPH CAN MAKE A CERTAIN TRIP IN 
7 HOURS LESS THAN A TRAIN TRAVELING AT 22 MPHe 

HOW LONG DOES THE TRIP TAKE BY CAR? 7 

GOOD! ANSWER WITHIN 4 PERCENT. 

CORRECT ANSWER IS 6+695652 HOURS- 


READY 


EDUCATIONAL BENEFIT: An effective use of this type of problem is to 
assign one problem from a list of several different problems to each 
student or to small groups of students. After the programs are written, 
students are directed to check programs written by others. In this way, 
each student not only fully understands the type of problem assigned to 
him, but he also gets practice in solving all of the other types as well. 
Note that the student must solve the problem in general in order to write 
his program. This should give him more valuable experience than solving 
two or three similar problems with specific numeric values. 


AREA: Geometry NUMBER: 8-17 NAME: CRSCNT 
SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 


DESCRIPTION: The computer is used to aid in the solution of the 
following problem. A crescent figure is bounded by 
a semicircle ABC whose radius is 5 inches and an 
arc ADC, the radius of whose circle is 10 inches. 
Find the area of the crescent. 


B 


A G 


APPROACH: In this problem, like any in which the computer is used, 
the student must recognize the fundamental formulae and 
algorithms to be used. If he cannot do that, he is 
stuck. To aid us in completing this problem, it will be 
helpful to complete the drawing to show more of both 
circles. 


Rl = radius of small 
circle = 5 

R2 = radius of big 
circle = 10 





Some things should now be apparent. In particular, since ABC is 


a semicircle, distance AEC is equal to 2*Rl = 10. Hence, triangle 
ACF is equilateral. Therefore, the area of wedge ADCF equals 1/6 


the area of the large circle. Hence, the area of the crescent is: 


Ar€acrescent = Area ABCE - Area ADCE 


1 : 
> * Ar€asmall circle ~ [ Areaveage : Areatriangle | 


i 2 2 21+ [52 0 
i oe rT * Ra? -5 R2 *\/R2 : 


E 


We can now substitute 5 and 10 for Rl and R2, reduce the equations 
and solve. The typical math text would ask that the answer be 
left in radical form and not figured for Tf. After a good bit of 
manipulation, the student would finally get down to an answer of: 
- “Fy 
Areacrescent = 25 *(/3 -~) 


However, using the computer, we can get a final solution without a 
lot of hand reduction. 


10 LEFT P1l=3-14159 

PA PRINT “AREA OF CRESCENT IN SQUARE INCHES IS"; 

3A PRINT 172*P1*5t2-1/6#P1L*1ATA+1/2* 1A*¥SORCIA1E-S5t2) 
99 END 


PEADY 
RUN 


AREA OF CRESCENT IN SQUARE INCHES IS 30421131 


RFADY 


EDUCATIONAL BENEFITS: The student can see that the computer won't 
help him much unless he knows the problem 
fundamentals and can "teach" the computer 
how to help him. He also learns that the 
computer is happy to grind through calcula- 
tions that aren't very pleasant to do by 
hand. Of course, if he wants to reduce the 
equation as far as possible and then use the 
computer, that approach works too. 

10 LFT P1=3-14159 
PA PRINT "“ARFA OF CRESCENT IN SQUARE. INCHES IS"'3 


3A PRINT ?5*CSQRC3)-P1/6) 
99 FND 


READY 
RUN 


APEA OF CRESCENT IN SQUARE INCHFS IS 38.-21131 


READY 


AREA: Statistics NUMBER: 8-19 
SOURCE: Basic BASIC, Hayden Publishing Co. 


DESCRIPTION: 


APPROACH: 


NAME: FLIP-1 
LANGUAGE: BASIC 


This program makes use of the random number generator 


in BASIC to flip an imaginary coin and do a simple 
tabulation of the number of heads which come up. Ten 
sequences of 50 flips are tabulated. 


Since the random number generator, RND, produces numbers 
between O and 1, we must have a way of splitting the 


numbers in half. One way, of course, 


is to ask whether 


the random number generated is greater or less than .5. 
Another way, which illustrates the use of the integer 
function, is as follows. Multiply the random number 
generated by 2 and then take the largest integer value 
contained in the result. If 0, let it be a tail; 1, 

a head. The statement to set the value of the flip is: 


LET F = INT (2 * RND (1) ) 


Now, let's see what the whole program 


PRINT “PHOGKAM FLIP-1" 

FOR Y=1 TC 10 

LET C=0 

FOR X=1 TO 50 

LET F=INTC2*KNDC1)) 

IF F=1 THEN 60 

PRINT "T'S 

sQ TO 100 

REM C COUNTS THE NUMBER OF HEADS 
LET C=C+1 

PRINT “H''s 

NEXT X 

PRINT 

PRINT “HEADS"SCs"OUT CF 58 FLIPS" 
PRINT 

NEXT Y 

END 


looks like. 


READY 
RUN 


PROGRAM FLIP-1 
TTHTTTTTHTTTTHTHTTHHHTTTTHHHT PHHHHHTHHHHHHT THHT THT 
HEADS 24 OUT UF 50 FLIPS 


THTTHHHTHHTHHHHTTTHTHTHHTTHHHHHHTTTHHTHTTHTTITTHTT 
HEADS 25 OUT CF 50 FLIPS 


THT THTHHTT THHHHHTH THT THHHT THTHHT THHTHHT THT THTHTHTT 
HEADS 25 OUT OF 50 FLIPS 


HTHTTTHTTTTHHHHHHHTHHT THTTTTHHHHTHTTTTHTTHTHHTTTHT 
HEADS 23 GUT OF 50 FLIPS 


HHTHTHTTTHHTHTTTHTTTHTHTTTHHTTTTTTHTHT THHAHTHTHHTT 
HEADS 21 OUT OF 58 FLIPS 


THHHTHHTTTHHTHTH THHHTHTHTTTTTTTTHHTHHHHHTTHHTTTHTH 
HEADS 25 OUT GF 50 FLIPS 


THHTHTHHTHH THHTH THHHHHHT THT THHHHTHHTTTHTHHHHT THHHT 
HEADS 31 CUT CF 5@ FLIPS 


TTTHTTTTHTHHTTH THTH THT THHTTHTT THTHHH THHHH THHHHHHHH 
HEADS 27 CUT OF 56 FLIPS 


HHHH THHHHHTHHHTHTHHTTHHHH17 THHTTHTHTHHTTTTTHTTTTHHH 
HEADS 29 OUT OF 56 FLIPS 


TTTHTHTTTTTTHTH THTTTHTTHHTHTHHHT TRHH THHHTHTHHHTHTT 
HEADS 23 CUT OF 56 FLIPS 


A simple addition lets us compute the percentage of all 
500 flips which were heads. 


@ LET Cl=6 

65 LET C1=C1+1 

130 LET A=C1¥*1007500 

133 PRINT 

135 PRINT A3"% OF 500 FLIPS WERE HEADS" 


RUN 


PROGRAM FLIP-1 7 
TTHTTTTTHTTTTHTHT THHHTTT THHHT THHHHH THRHHHHTT 
HEADS 24 OUT CF 50 FLIPS 
_.a1 A HHHHHHHH 
THTTHHHTHHTHHHHTTTHTY™” 
HEADS 25 CUT ™ ; - 
_,nHTTHHHHTTHHTTHTHTHHTTTTTHTT ITAA 
vul CF 50 FLIPS 


TPTHTHTT TTT THTH THT TTHT THH TH THHHT THHH THHATHTREATHITT 
HFADS 23 OUT OF 50 FLIPS 


50-6 % OF SOU FLIPS WESE HEADS 


READY 


AREA: Plotting NUMBER: NAME: SINEX 
SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 


DESCRIPTION: The computer can be used to plot virtually any function. 
This particular method takes advantage of the TAB command, although it 
need not. For example, a program to plot a sine wave without using TAB, 
would be as follows: 


FOR X= TO 19 STEP .25 
LET 0=30+30*SINCX) 

FOR B=1 TO 9 

PRINT " "3 

NEXT B 

PRINT "x" 

NEXT X 

END 


ONANEWNUE 


In the next program, we have filled in the area between the y axis 
and the curve and we have used the TAB command to replace steps 3 to 
5 above. 


31 FOR X=@ TO 19 STEP .25 
32 LET Q=30*SINCK)*EXPC-0 1*X) 
33 IF Q>=4 THEN 35 

34 GO TO 42 

35 PRINT TABC30)3 

36 FOR Y=@ TO Q 

37 PRINT "x's 

38 NEXT Y 

40 PRINT 

41 GO TO 5a 

42 PRINT TABC30+Q)5 

43 FOR Y=@ TO © STEP -1 
44 PRINT "x's 

4S NEXT Y 

46 PRINT 

5@ NEXT X 

99 END 


x 
XXXXXXXX 
XXXXXXXKXXKXKK 
XXMXXXXXXXXKXKXKXXKXXX 
XXXXXXXK XX XK KKK XK AXX KK KK 
XxXXXXKKX XK KKK KK KK KX KKK XXKKK 
XXXXXXXXXXXKXXKKXXKXKXKXKXKXKXKX 
XXXXXXXXXXKX XX XXK KXKKKKXXK 
XXXXXXXXAXXKXXXXKXXXKXXKXKX 
XX XK XXX AX KX KK KK KK KKK 
XXX XX XXKXXXKXXX 
XXX XXXXXKX 
XXXX 
XXX 
XXXXX XXX 
XXXXXXKXXXXX 
XXX XKKKX KKK KKK KKK 
XXKKXKKXXXXKXKKXKXX 
XXKKXKKXKXXKXKKK KK KKK 
KKXXKKXXKXKKKXXAXKK XK XXX 
XXKXXKXKXXKXKXKXKKXK 
XXKXXKKKKXKKKKKX 
XXXXXXKXKKXXKK 
KXXXXXXXK 
XXXKX 
x 
XXXX 
XXXXXKXX 
KX XX XXKK KK 
XXXXXXKXXXKXX 
XXXXXXKXXKXXKXXKX 
XXXXXXAXXXAXXXXX 
XXXXXXXXXXKKXX 
XXXXXXKXXKXKX 
XXXXXXXK KKK 
XXXXKXKX 
XXXXXX 
XXX 
x 
XXXXK 
XXXXXKK 
XXXXXXKX 
XXKXXXKXXX 
XXXKXXXXXXK 
XXXKKXXXKK 
XXXXKXKKXKKX 
XXXXXXKXK 
XXXXXKX 
XXXXX 
XXX 
x 
XX 
XXXXK 
XKXXXXX 
XXXXKKK 
XXXXXXXX 
XXXXXXXX 
XXXXKXXX 
XXXXXXX 
XXXXXK 
XXXXX 
XXX 
XX 


AREA: Plotting NUMBER = NAME: 3DPLOT 
SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 


DESCRIPTION: 3DPLOT will plot a three dimensional, perspective graph of 
a function of three variables. It plots Z (the vertical axis) as a func- 
tion of X and Y, where X and Y are inside a circle of radius 30. 


USAGE: Enter the function to be plotted as a DEF FNA(Z) statement in 
line 5. Then type RUN. The resulting plot will go sideways on the page. 


5 DEF FNACZ)=SORC9AACA1-Z7*7,)*09-2 


4A PRINT 
45 LET 1121 
5A FOR X=-3A TO 30 STEP 1-5 


60 LET Lis-1 

7A LET Y1=S*INTCSQR(9AQ2A1-X*K)75) 
8® FOR Y=Y1 TO -Y!1 STEP -5 
9A LET Z=INTCOS+FNACSQORCX#X+Y*#Y) - 0 7*Y) 
1406 IF Lie-1 THEN 14a 

110 IF %>L1 THEN 184 

120A IF 7<L2 THEN 158 

134 GO TO 20a 

140 LET Li=7 

150 LET L2@=7, 

160 IF 7=I1-1 THEN 166 

161 FOR I=I1 TO 2 

162 PRINT " "5 

164 NEXT I 

166 PRINT ‘x's 

167 LET 11=7+2 

170 GO TO 2ae6 

189 LET Li=7 

194 GO TO 160 

200 NEXT Y 

210 PRINT 

215 LET 11=1 

220 NEXT X 

230A PRINT 

240 END 


dQ: 


Ng 


eer 


Like all plotting programs, some functions come out "prettier" than 
others. Two that are known to work are: 


5 DEF FNA(Z) 30*EXP (-Z*Z/100) 


5 DEF FNA(Z) SQR (999.G1-Z*Z)*.9 -2 


; 0 
S DEF FNACZ7,) =3A*EXP(-7.*7.710A0) 
RUN 
* 
* x  * 
x * x Ox * 
* * x x Ok * * 
* * * x  * * Ok 
* x Ok * Ok * * 
x * * * * * x Ok * 
* x * x x Pe a x 
x  * * * * * * * * 
* * * * * Ok kk Ok * x 
* x x * * kk Ok ok x * 
* * * * * * kk ok kk 
* * * * * kkk kx 
* * * * * a ee ee 
* * * * * kkk 
* * * * * * 
* * * * * * 
* * * * * * 
* * * * * * 
* Py * * * * 
*  * * * * * * 
* * * * * * 
* * * * * * 
* * * x * * 
* * * * * * 
* * * x * *x 
* * * * * kkk 
* * * * * xk oe O* 
* * * * * kok Ok ok o* 
* * * * * x kK oe Ok Ok 
* x Ok * * xk ok * x ok 
* * x * x Ok x kk x Ok 
x * * * x * ke * * 
x x * * x x kk x 
x * x Ok x * x * x 
* * * x * x x 
* * * xk * ok 
* * Ox xk Ok * * 
x Ok * * * 
* * * 
* 
READY 


EDUCATIONAL BENEFITS: Using the computer to plot is an excellent way to 
teach coordinate geometry. It really shows the interrelation of geometry 
and algebra as described by Descartes. 
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